home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / e_v3.2a_extras / pdsrc / oomodules / library.e < prev    next >
Text File  |  1995-02-05  |  408b  |  22 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OBJECT library
  5.   base
  6. ENDOBJECT
  7.  
  8. PROC open(name,version=NIL,dummy=NIL) OF library
  9. /*
  10.  * Just opens a library and fills the entries. the dummy argument is needed for
  11.  * opne OF device uses three vars
  12.  */
  13.  
  14. DEF base
  15.   IF(base := OpenLibrary(name,version))=NIL THEN Raise("LIB")
  16.   self.base := base
  17. ENDPROC base
  18.  
  19. PROC close() OF library
  20.   IF self.base THEN CloseLibrary(self.base)
  21. ENDPROC
  22.